home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Ahoy 1986 December
/
Ahoy_Magazine_86-12_1986_Double_L.d64
/
Text Search
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
299b
|
17 lines
0 rem << cd36-6 >>
1 rem commodares problem #32-2:
2 print"[147] text search"
3 rem solution by
4 rem jason simpson
5 rem
10 input"search string";a$
20 a=len(a$)
30 open1,8,0,"testfile,s,r"
40 if st then close1 : end
50 input#1,b$
60 b=len(b$)
70 for y=1 to b
80 if mid$(b$,y,a)=a$ then print b$: y=b
90 next y
100 goto 40